unit URDM;

interface

uses {vcl:} SysUtils, Classes, DB, DBClient, 
     {RemObjects:} uRODataSnapModule, Provider, MemDS, DBAccess, Uni;

type
  TRDM = class(TRODataSnapModule)
    dspOrderList: TDataSetProvider;
    unqryClient: TUniQuery;
    dspClient: TDataSetProvider;
    UniqryOrderList: TUniQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RDM: TRDM;

implementation

uses {RemObjects:} uROServer, uRODataSnap_Invk, fServerDataModule;

{$R *.DFM}

procedure Create_DataSnapModule(out oInstance:IUnknown);
begin
  oInstance := TRDM.Create(nil);
end;

initialization
  { To adjust scalability of the DataSnapModule and avoid recreation of
    instances for each roundtrip, you might want to choose a  different
    ClassFactory type.

    Make sure to check the following url for more information:
    http://www.remobjects.com?ro16 }

  //TROPooledClassFactory.Create('IAppServer', Create_DataSnapModule, TAppServer_Invoker, 25);
  TROClassFactory.Create('IAppServer', Create_DataSnapModule, TAppServer_Invoker);
end.
